/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c++-part2 / 16033

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 73 69 | 65 6d 65 6e 73 2e 61 74 |Path: si|emens.at|
|00000010| 21 75 73 65 6e 65 74 0a | 46 72 6f 6d 3a 20 22 48 |!usenet.|From: "H|
|00000020| 65 6c 67 65 20 53 fc df | 22 20 3c 68 65 6c 67 65 |elge S..|" <helge|
|00000030| 40 73 69 65 6d 65 6e 73 | 2e 63 6f 2e 61 74 3e 0a |@siemens|.co.at>.|
|00000040| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000050| 2e 6f 73 2e 6d 73 2d 77 | 69 6e 64 6f 77 73 2e 70 |.os.ms-w|indows.p|
|00000060| 72 6f 67 72 61 6d 6d 65 | 72 2e 74 6f 6f 6c 73 2e |rogramme|r.tools.|
|00000070| 6d 66 63 2c 63 6f 6d 70 | 2e 6c 61 6e 67 2e 63 2b |mfc,comp|.lang.c+|
|00000080| 2b 2c 63 6f 6d 70 2e 6c | 61 6e 67 2e 62 61 73 69 |+,comp.l|ang.basi|
|00000090| 63 2e 76 69 73 75 61 6c | 2e 64 61 74 61 62 61 73 |c.visual|.databas|
|000000a0| 65 2c 63 6f 6d 70 2e 6c | 61 6e 67 2e 62 61 73 69 |e,comp.l|ang.basi|
|000000b0| 63 2e 76 69 73 75 61 6c | 0a 53 75 62 6a 65 63 74 |c.visual|.Subject|
|000000c0| 3a 20 52 65 3a 20 48 45 | 4c 50 20 21 21 21 20 57 |: Re: HE|LP !!! W|
|000000d0| 49 74 68 20 56 42 20 26 | 20 44 4c 4c 20 63 6f 6e |Ith VB &| DLL con|
|000000e0| 6e 65 63 74 69 6f 6e 0a | 44 61 74 65 3a 20 39 20 |nection.|Date: 9 |
|000000f0| 41 70 72 20 31 39 39 36 | 20 30 39 3a 31 33 3a 34 |Apr 1996| 09:13:4|
|00000100| 31 20 47 4d 54 0a 4f 72 | 67 61 6e 69 7a 61 74 69 |1 GMT.Or|ganizati|
|00000110| 6f 6e 3a 20 53 69 65 6d | 65 6e 73 20 41 47 20 41 |on: Siem|ens AG A|
|00000120| 75 73 74 72 69 61 0a 4d | 65 73 73 61 67 65 2d 49 |ustria.M|essage-I|
|00000130| 44 3a 20 3c 34 6b 64 39 | 6f 35 24 6f 31 35 40 6e |D: <4kd9|o5$o15@n|
|00000140| 65 77 73 2e 73 69 65 6d | 65 6e 73 2e 61 74 3e 0a |ews.siem|ens.at>.|
|00000150| 52 65 66 65 72 65 6e 63 | 65 73 3a 20 3c 4e 45 57 |Referenc|es: <NEW|
|00000160| 54 4e 65 77 73 2e 33 31 | 31 37 38 2e 38 32 37 39 |TNews.31|178.8279|
|00000170| 36 30 33 32 39 2e 50 6f | 73 74 6d 61 73 74 65 72 |60329.Po|stmaster|
|00000180| 40 4a 65 72 75 73 61 6c | 65 6d 2e 6e 65 74 76 69 |@Jerusal|em.netvi|
|00000190| 73 69 6f 6e 2e 6e 65 74 | 2e 69 6c 3e 0a 4e 4e 54 |sion.net|.il>.NNT|
|000001a0| 50 2d 50 6f 73 74 69 6e | 67 2d 48 6f 73 74 3a 20 |P-Postin|g-Host: |
|000001b0| 70 63 35 38 38 38 2e 68 | 69 6c 2e 73 69 65 6d 65 |pc5888.h|il.sieme|
|000001c0| 6e 73 2d 61 75 73 74 72 | 69 61 0a 4d 69 6d 65 2d |ns-austr|ia.Mime-|
|000001d0| 56 65 72 73 69 6f 6e 3a | 20 31 2e 30 0a 43 6f 6e |Version:| 1.0.Con|
|000001e0| 74 65 6e 74 2d 54 79 70 | 65 3a 20 74 65 78 74 2f |tent-Typ|e: text/|
|000001f0| 70 6c 61 69 6e 3b 20 63 | 68 61 72 73 65 74 3d 75 |plain; c|harset=u|
|00000200| 73 2d 61 73 63 69 69 0a | 43 6f 6e 74 65 6e 74 2d |s-ascii.|Content-|
|00000210| 54 72 61 6e 73 66 65 72 | 2d 45 6e 63 6f 64 69 6e |Transfer|-Encodin|
|00000220| 67 3a 20 37 62 69 74 0a | 58 2d 4d 61 69 6c 65 72 |g: 7bit.|X-Mailer|
|00000230| 3a 20 4d 6f 7a 69 6c 6c | 61 20 31 2e 32 32 20 28 |: Mozill|a 1.22 (|
|00000240| 57 69 6e 64 6f 77 73 3b | 20 49 3b 20 31 36 62 69 |Windows;| I; 16bi|
|00000250| 74 29 0a 54 6f 3a 20 69 | 74 69 40 6e 65 74 2e 6e |t).To: i|ti@net.n|
|00000260| 65 74 76 69 73 69 6f 6e | 2e 69 6c 0a 0a 69 74 69 |etvision|.il..iti|
|00000270| 40 4a 65 72 75 73 61 6c | 65 6d 2e 6e 65 74 76 69 |@Jerusal|em.netvi|
|00000280| 73 69 6f 6e 2e 6e 65 74 | 2e 69 6c 20 77 72 6f 74 |sion.net|.il wrot|
|00000290| 65 3a 0a 3e 0a 3e 49 20 | 68 61 76 65 20 61 20 44 |e:.>.>I |have a D|
|000002a0| 4c 4c 20 77 72 69 74 74 | 65 6e 20 69 6e 20 56 69 |LL writt|en in Vi|
|000002b0| 73 75 61 6c 20 43 2b 2b | 20 61 6e 64 20 61 6d 20 |sual C++| and am |
|000002c0| 74 72 79 69 6e 67 20 74 | 6f 20 77 72 69 74 65 20 |trying t|o write |
|000002d0| 61 20 56 69 73 75 61 6c | 20 42 61 73 69 63 20 28 |a Visual| Basic (|
|000002e0| 56 65 72 2e 20 3e 33 29 | 20 61 70 70 6c 69 63 61 |Ver. >3)| applica|
|000002f0| 74 69 6f 6e 20 74 6f 20 | 75 73 65 20 69 74 2e 20 |tion to |use it. |
|00000300| 20 49 20 61 6d 20 6e 65 | 77 20 74 6f 20 56 42 20 | I am ne|w to VB |
|00000310| 73 6f 20 49 20 68 61 76 | 65 20 74 77 6f 20 71 75 |so I hav|e two qu|
|00000320| 65 73 74 69 6f 6e 73 2e | 0a 3e 0a 3e 09 31 2e 20 |estions.|.>.>.1. |
|00000330| 20 48 6f 77 20 63 61 6e | 20 49 20 61 63 63 65 73 | How can| I acces|
|00000340| 73 20 74 68 65 20 6d 65 | 73 73 61 67 65 20 71 75 |s the me|ssage qu|
|00000350| 65 20 28 69 6e 20 6f 72 | 64 65 72 20 74 6f 20 64 |e (in or|der to d|
|00000360| 6f 20 6d 79 20 6f 77 6e | 20 6d 65 73 73 61 67 65 |o my own| message|
|00000370| 20 3e 70 72 6f 63 65 73 | 73 69 6e 67 29 20 69 6e | >proces|sing) in|
|00000380| 20 61 20 56 42 20 61 70 | 70 6c 69 63 61 74 69 6f | a VB ap|plicatio|
|00000390| 6e 3f 0a 3e 0a 3e 09 32 | 2e 20 20 49 20 68 61 76 |n?.>.>.2|.  I hav|
|000003a0| 65 20 61 20 43 20 44 4c | 4c 20 66 75 6e 63 74 69 |e a C DL|L functi|
|000003b0| 6f 6e 20 64 65 63 6c 61 | 69 72 65 64 20 61 73 20 |on decla|ired as |
|000003c0| 0a 3e 22 63 68 61 72 20 | 66 61 72 2a 20 20 20 57 |.>"char |far*   W|
|000003d0| 49 4e 41 50 49 20 20 20 | 20 5f 65 78 70 6f 72 74 |INAPI   | _export|
|000003e0| 20 20 20 20 4d 79 46 75 | 6e 63 74 28 76 6f 69 64 |    MyFu|nct(void|
|000003f0| 29 20 20 22 2e 20 20 48 | 6f 77 20 64 6f 20 49 20 |)  ".  H|ow do I |
|00000400| 64 65 63 6c 61 72 65 20 | 69 74 20 69 6e 20 56 42 |declare |it in VB|
|00000410| 2e 0a 3e 0a 0a 44 65 63 | 6c 61 72 65 20 46 75 6e |..>..Dec|lare Fun|
|00000420| 63 74 69 6f 6e 20 4d 79 | 46 75 6e 63 74 20 4c 69 |ction My|Funct Li|
|00000430| 62 20 22 4d 79 44 6c 6c | 2e 44 4c 4c 22 20 41 73 |b "MyDll|.DLL" As|
|00000440| 20 4c 6f 6e 67 0a 0a 59 | 6f 75 20 77 6f 6e 27 74 | Long..Y|ou won't|
|00000450| 20 62 65 20 68 61 70 70 | 79 20 77 69 74 68 20 74 | be happ|y with t|
|00000460| 68 65 20 63 68 61 72 2a | 20 74 68 6f 75 67 68 20 |he char*| though |
|00000470| 62 65 63 61 75 73 65 20 | 56 42 20 53 74 72 69 6e |because |VB Strin|
|00000480| 67 73 20 61 72 65 20 68 | 61 6e 64 6c 65 64 0a 69 |gs are h|andled.i|
|00000490| 6e 20 61 20 56 45 52 59 | 20 64 69 66 66 65 72 65 |n a VERY| differe|
|000004a0| 6e 74 20 77 61 79 2e 20 | 49 66 20 79 6f 75 20 77 |nt way. |If you w|
|000004b0| 61 6e 74 20 74 6f 20 72 | 65 74 75 72 6e 20 61 20 |ant to r|eturn a |
|000004c0| 73 74 72 69 6e 67 20 72 | 65 73 75 6c 74 20 70 61 |string r|esult pa|
|000004d0| 73 73 20 61 0a 70 6f 69 | 6e 74 65 72 20 74 6f 20 |ss a.poi|nter to |
|000004e0| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 61 6e 64 |the func|tion and|
|000004f0| 20 61 20 70 72 65 2d 69 | 6e 69 74 69 61 6c 69 7a | a pre-i|nitializ|
|00000500| 65 64 20 73 74 72 69 6e | 67 20 61 74 20 72 75 6e |ed strin|g at run|
|00000510| 74 69 6d 65 2e 0a 0a 65 | 2e 67 2e 20 69 6e 74 20 |time...e|.g. int |
|00000520| 57 49 4e 41 50 49 20 5f | 65 78 70 6f 72 74 20 4d |WINAPI _|export M|
|00000530| 79 46 75 6e 63 74 28 63 | 68 61 72 2a 20 72 65 73 |yFunct(c|har* res|
|00000540| 75 6c 74 29 3b 0a 0a 44 | 65 63 6c 61 72 65 20 46 |ult);..D|eclare F|
|00000550| 75 6e 63 74 69 6f 6e 20 | 4d 79 46 75 6e 63 74 20 |unction |MyFunct |
|00000560| 4c 69 62 20 22 4d 79 44 | 6c 6c 2e 44 4c 4c 22 20 |Lib "MyD|ll.DLL" |
|00000570| 28 42 79 56 61 6c 20 72 | 65 73 75 6c 74 20 41 73 |(ByVal r|esult As|
|00000580| 20 53 74 72 69 6e 67 29 | 20 41 73 20 49 6e 74 65 | String)| As Inte|
|00000590| 67 65 72 0a 0a 28 69 66 | 20 79 6f 75 20 77 61 6e |ger..(if| you wan|
|000005a0| 74 20 74 6f 20 72 65 74 | 75 72 6e 20 61 20 6e 65 |t to ret|urn a ne|
|000005b0| 67 61 74 69 76 65 20 65 | 72 72 6f 72 20 63 6f 64 |gative e|rror cod|
|000005c0| 65 20 61 73 20 66 75 6e | 63 74 69 6f 6e 20 72 65 |e as fun|ction re|
|000005d0| 73 75 6c 74 20 69 6e 20 | 74 68 65 20 69 6e 74 0a |sult in |the int.|
|000005e0| 6f 72 20 74 68 65 20 6c | 65 6e 67 74 68 20 6f 66 |or the l|ength of|
|000005f0| 20 74 68 65 20 73 74 72 | 69 6e 67 20 69 66 20 73 | the str|ing if s|
|00000600| 75 63 63 65 73 73 66 75 | 6c 29 0a 0a 54 68 65 6e |uccessfu|l)..Then|
|00000610| 20 63 61 6c 6c 20 69 74 | 20 6c 69 6b 65 20 74 68 | call it| like th|
|00000620| 69 73 3a 0a 0a 44 69 6d | 20 6f 6b 20 41 73 20 49 |is:..Dim| ok As I|
|00000630| 6e 74 65 67 65 72 0a 44 | 69 6d 20 72 65 73 75 6c |nteger.D|im resul|
|00000640| 74 73 74 72 69 6e 67 20 | 41 73 20 53 74 72 69 6e |tstring |As Strin|
|00000650| 67 0a 0a 72 65 73 75 6c | 74 73 74 72 69 6e 67 20 |g..resul|tstring |
|00000660| 3d 20 22 6c 6f 74 73 6f | 66 73 70 61 63 65 73 75 |= "lotso|fspacesu|
|00000670| 70 74 6f 74 68 65 6d 61 | 78 79 6f 75 27 6c 6c 65 |ptothema|xyou'lle|
|00000680| 78 70 65 63 74 22 20 26 | 20 63 68 72 24 28 30 29 |xpect" &| chr$(0)|
|00000690| 0a 6f 6b 20 3d 20 4d 79 | 46 75 6e 63 74 28 72 65 |.ok = My|Funct(re|
|000006a0| 73 75 6c 74 73 74 72 69 | 6e 67 29 0a 49 66 20 6f |sultstri|ng).If o|
|000006b0| 6b 20 3e 3d 20 30 20 54 | 68 65 6e 0a 20 20 20 20 |k >= 0 T|hen.    |
|000006c0| 72 65 73 75 6c 74 73 74 | 72 69 6e 67 20 3d 20 4c |resultst|ring = L|
|000006d0| 65 66 74 24 28 72 65 73 | 75 6c 74 73 74 72 69 6e |eft$(res|ultstrin|
|000006e0| 67 2c 20 6f 6b 29 0a 45 | 6c 73 65 0a 20 20 20 27 |g, ok).E|lse.   '|
|000006f0| 20 67 6f 74 20 73 6f 6d | 65 20 65 72 72 6f 72 20 | got som|e error |
|00000700| 74 6f 20 72 65 70 6f 72 | 74 0a 45 6e 64 20 49 66 |to repor|t.End If|
|00000710| 0a 0a 48 65 6c 67 65 20 | 3b 2d 29 3d 29 0a 0a 2d |..Helge |;-)=)..-|
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 20 20 20 20 20 20 |--------|-.      |
|00000760| 28 63 29 20 41 6c 6c 20 | 54 68 6f 75 67 68 74 73 |(c) All |Thoughts|
|00000770| 20 61 72 65 20 4d 69 6e | 65 20 2d 2d 20 47 65 6e | are Min|e -- Gen|
|00000780| 75 69 6e 65 20 47 65 6e | 69 75 73 0a 2d 2d 2d 2d |uine Gen|ius.----|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 0a 68 | 65 6c 67 65 40 73 69 65 |------.h|elge@sie|
|000007d0| 6d 65 6e 73 2e 63 6f 2e | 61 74 20 20 20 20 20 20 |mens.co.|at      |
|000007e0| 20 20 2d 2d 2d 2d 2d 20 | 20 20 20 20 20 20 20 20 |  ----- |        |
|000007f0| 56 49 45 4e 4e 41 20 2d | 2d 20 41 55 53 54 52 49 |VIENNA -|- AUSTRI|
|00000800| 41 0a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |A.------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 0a 0a    |--------|----... |
+--------+-------------------------+-------------------------+--------+--------+